C=====================================================================
C     
C=====================================================================
      subroutine order (a, na, norder)
      implicit integer (i-n)
      implicit real*8 (a-h, o-z)
      dimension a(na), norder(na)
      do n = 1, na
         norder(n) = n
      end do 
      do m = 1, na - 1
         do n = 1, na - 1
            if (a(norder(n)) .gt. a(norder(n+1))) then
               ntmp = norder(n)
               norder(n) = norder(n+1)
               norder(n+1) = ntmp
            end if
         end do 
      end do 
      return
      end

